home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / RAUSCHEN.LST < prev    next >
File List  |  1989-06-01  |  568b  |  35 lines
  1. ' Rauschen
  2. '
  3. @init
  4. @spielen
  5. END
  6. '
  7. PROCEDURE init
  8.   DIM wert&(255)
  9. RETURN
  10. PROCEDURE spielen
  11.   FOR j%=40 TO 100 STEP 20
  12.     factor%=j%
  13.     @rausch
  14.     FOR freq%=100 TO 600 STEP 100
  15.       SOUND freq%,1,255,0
  16.     NEXT freq%
  17.   NEXT j%
  18. RETURN
  19. PROCEDURE rausch
  20.   RANDOMIZE TIMER
  21.   FOR i%=0 TO 63
  22.     wert&(i%)=2*i%-INT(RND*factor%)
  23.   NEXT i%
  24.   FOR i%=0 TO 63
  25.     wert&(i%+64)=127-i%-INT(RND*factor%)
  26.   NEXT i%
  27.   FOR i%=0 TO 63
  28.     wert&(i%+127)=0-i%+INT(RND*factor%)
  29.   NEXT i%
  30.   FOR i%=0 TO 63
  31.     wert&(i%+191)=-127+(2*i%)+INT(RND*factor%)
  32.   NEXT i%
  33.   WAVE 0,wert&()
  34. RETURN
  35.